(define (f x) 1)

(define foo
  (if #t
      (let* ((tempo 0))
	(f 3))
      (f (f 2))))

